package Util::Texto;

use strict;
use warnings;

our $version = '1.00';

use base 'Exporter';

our @EXPORT = qw(trim);

sub trim {
	my $texto = shift;
	$texto =~ s/^\s+//;
	$texto =~ s/\s+$//;
	return $texto;
}

1;